home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 26 / Tiger_Disk_026_19xx_Tiger-Crew-Disk_de_Side_A.d64 / joystick-test (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  49 lines
  1. 1 poke788,52:poke53280,0:poke53281,0:printchr$(147)
  2. 2 joy=56320:a=2:j$="neutral":vl$="00":b$="aus"
  3. 5 print" joystick tester /  michael smith  1989 [146]"
  4. 12 print"     [209]     ":print
  5. 13 print" [209]       [209]  "
  6. 15 print"[209]    [209]    [209]  "
  7. 16 print"           "
  8. 17 print" [209]       [209]  "
  9. 18 print"     [209]     "
  10. 20 print"joystick port     :";a"[146]"
  11. 21 print"joystick richtung :";j$"[146]"
  12. 22 print"value:";vl$"[146]"
  13. 23 print"feuer - taste     :";b$;"[146]"
  14. 24 print"          "
  15. 25 print"     drueck space fuer portwechsel    [146]"
  16. 50 fork=0to10
  17. 51 gosub100
  18. 55 geta$:ifa$=""then56
  19. 56 ifa$=" "thengoto150
  20. 67 ifjv=0then98
  21. 68 ifjv=1thenj$="hoch       ":vl$="01":goto507
  22. 69 ifjv=2thenj$="runter     ":vl$="02":goto506
  23. 70 ifjv=4thenj$="links      ":vl$="04":goto505
  24. 71 ifjv=5thenj$="hoch/links ":vl$="05":goto504
  25. 72 ifjv=6thenj$="runter/li. ":vl$="06":goto503
  26. 73 ifjv=8thenj$="rechts     ":vl$="08":goto502
  27. 74 ifjv=9thenj$="hoch/rechts":vl$="09":goto501
  28. 95 ifjv=10thenj$="runter/re. ":vl$="10":goto500
  29. 98 iffr=16thenb$="aus":j$="neutral    ":vl$="00":goto510
  30. 99 b$="an ":goto23
  31. 100 jv=peek(joy)
  32. 110 fr=jvand16
  33. 120 jv=15-(jvand15)
  34. 130 return
  35. 140 end
  36. 150 ifa=2thenjoy=56321:a=1:goto12
  37. 155 ifa=1thenjoy=56320:a=2:goto12
  38. 160 end
  39. 500 print"[153] [209][150]       [209]  ":goto12
  40. 501 print" [209][150]       [209]  ":goto12
  41. 502 print"[209]    [209][150]    [209]  ":goto12
  42. 503 print"[150] [209]       [209]  ":goto12
  43. 504 print"[150] [209]       [209]  ":goto12
  44. 505 print"[150][209]    [209]    [209]  ":goto12
  45. 506 print"[150]     [209]     ":goto12
  46. 507 print"[150]     [209]     ":goto12
  47. 510 print"[209]   [150] [209]    [209]  ":goto12
  48. 520 end
  49.